مذكرة الكمبيوتر الصف الثالث ع 1431 هى 2010م الفصل الدراسي الثاني 
الفصل الأول : تمثيل البيانات 
مقدمه بسیطه : 

يقصد بتمثيل البيانات هوأن البيانات تخزن في خلايا الذاكرة المؤقتة للحاسوب السؤال :كيف يتم ذلك ؟ هذا ما سنعرفه في 
الدروس المقبلة بطبيعة الحال إن شاء الله تعالي » وقبل معرفة ذلك لابد من الاجابة على السؤال الآتي: 
س : ما علاقة تمثيل البيانات بالبرمجة ( ٤6م.ط۷)‏ ؟ الاجابة بإختصار أنه عند كتابة البرنامج ( البرمجة ) لابد من حجز 
أماكن للقيم الموجودة بالبرنامج في ذاكرة الحاسب وهذا مايعرف بتمثيل البيانات وسوف يتضح ذلك إن شاء الله تعالي . 

نبد فنقول : 

1 أن جميع المدخلات التي يتم ادخالها لذاكرة الحاسب تعتبرمدخلات حرفية حتى لو تكونت من أرقام. 
2- البيان الحرفي لايدخل في عمليات حسابية والبيان الرقمي هي المدخلات التي تم تحويلها إلى رقمية وتسمى متغيرات 
3- أن أي بيانات يتم التعامل معها تكون مخزنة بذاكرة الكمبيوتر 
4- أن الذاكرة مكونة من ملايين الخلايا وكل خلية تسمى ٥)ر6‏ 
5-السعة التخزينية للخلية حرف واحد أوأرقام صحيحة من (-128 : 127 ) أو من(0 : 255) بفرض أن الخلية في الذاكرة 
بالشكل التالي: A‏ " 133" |0 :255 |-128: 127 


يتضح من الشكل السابق أن الخلية خصصت لحرف واحد مثلا حرف ۸ أو الحرف " 455" نلاحظ أنه رقم ولكنه في حقيقة 

الامر حرف لأنه وضع بين علامتي تنصيص » وخصصت خلية واحدة للأرقام من( 0 : 255 ) أو من(+ 127 : -128) 

6- الخلية الواحدة لاتكفي عندما يتم تخزين أرقام بصورتها الحقيقية أو أرقام أكبر من( 127 ) وأقل ( -128 ) فمثلا 

القيمة 225,89 تحتاج لأكثر من خلية برغم أنها قيمة واحدة ولها اسم واحد بفرض أن الاسم ( المتغير )هو ۷ فيكون 
9 = ۷ ويتم تمثيل ذلك في الذاكرة کالتالي : | وې | ڄور 


7- من الشكل السابق تعتبرالقيمة واحدة حتى لو تم تخزينها في مجموعة خلايا ويعطى لهذه الخلايا اسم واحد طلما القيمة واحدة 

8- أسماء الخلايا ( المخازن ) التي تشغل القيم التي تتغيرأثناء التشغيل تعتبرمتغيرات والتي لم تتغير تعتبر ثوابت 

9- اعطاء أسماء للخلايا يعتبراعلان للمتغيرات التي بها قيم متغيرة و للثوابت التي بها قيم ثابتة 

0- اعلان المتغيرات والثوابت يستخدم لحجز أماكن في الذاكرة 

1- كلما زاد عدد الخلايا زاد حجم الذاكرة 

2- تحمل الخلايا أرقاما متسلسلة تبدا من الصفر وهي تمثل حجم ذاكرة الجهاز 

3- تسمح كل لغات البرمجة عالية المستوى بإعطاء أسماء للخلايا التي يتم تخزين بيانات بها حتى يسهل 

تتبعها والتعامل معها في البرنامج . 

تدریب : 

*استخدم البيانات التالية خاصة بمنتج معين لعمل جدول يوضح اعداد الأماكن فى الذكرة وتسميتها 

كمية المنتج = 1000 وحدة › سعر الوحدة = 7.5 جنيه » خصم كمية محددة (ثابتة ) للعرض بسعر 900ج 
الحا 


State mentًځأnجlا‎ Quantity Unit Price Total Price Display for 
Quantity 
(constant) 
Dim Q As Integer = 1000 1000 Doesn't Doesn't Doesn't Exist 
Exist Exist 
Dim Unit Price as 1000 7.5 Doesn't Doesn't Exist 
Decimal =7.5 Exist 
Dim Total Price as 1000 7.5 0 Doesn't Exist 
Decimal 
Dim QD =900 1000 7.5 0 900 
Price=Q * Unit Price 1000 7.5 1000* 900 
7.5=7500 
Price = Price - QD 1000 7.5 7500- 900 
900=6600 
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للتعرف على ذلك لابد من : 


كيف تتم العمليات الحسابية ةذ 


الفيجول بيسك ۷.٣٥٤‏ 


1 التعرف على أنواع البيانات 
2- كيفية استخدام المتغيرات والاعلان عنها 


أنواع البيانات 


نوع البيان ثابت أو متغير يحدد نوع المعلومات التي يتم تخزينها في الذاكرة فمثلاً حجم الذاكرة الذي يحتاجه متغير رقمي 
صحيح يختلف عن الحجم الذي يحتاجه متغير رقمي بصورته الحقيقية . 


الجدول التالى يوضح أنواع البيانات : 


حیث ان عدد ( ٤ر6‏ ) : 


المدى ( Rand‏ ) : هو حدود القيم المتاحة للمتغير 
الدقة__«٠أوأعم٣م_‏ : هي عدد الخانات التي يتم تمثيل المتغير بها وهي خاصة بالمتغيرات الرقمية فقط 


Precision dull 


Not Applicable 
غير قابل للتطبيق‎ 
Whole Number 

Only 
Not Applicable 
غير قابل للتطبيق‎ 
Not Applicable 
غير قابل للتطبيق‎ 
يتيح 29 رقم بعد‎ 
العلامة‎ 
7 
15 
5 
10 


19 


Not Applicable 


Range ”٦دملا‎ 


True or False 
0 to 255 
حرفية فقط‎ 


1/1/0001 t0 3 9 


11.234,567,890,547,785,5,.... 


0.122346 
0.445,565,667,888,45 
32,768 
-2,147,483,648 t0 
+--+ ,ۇۇ‎ 7 
-9,223,372,036,854,7 75... 0 
+9 ,-1- 7 


من صفر الى 65500 حرف 


هو حجم الذاكرة التي يحتاجها المتغير من النوع المصاحب له 


Number of 
Byte 
عدد الخلايا في الذاكرة‎ 
2 


1 


2 


ملاحظة : البيانات من نوع ٤اهط؟‏ , وما , ٣#وهام!|‏ تستخدم لتخزين الاعداد الصحيحة 
والبيانات من نوع ماه , ماوہاأ؟ ,اج"٣أء‏ ه0 تستخدم لتخزين الاعدادالحقيقية 


تختلف درجة الدقة باختلاف نو 


المتغير. وب 


تضح ذلك فی الآتی ٠‏ 


Data Type gai 
البيانات‎ 


Boolean تيم‎ 


Decimal 


single 
Double 
Short 
Integer 


عدد صحیح 3ا 
طویل 

يصل إلى 2 مليار 
string‏ 


1- مثلا اذا أردنا أن نقوم بتخزين القيمة (5.2) في المتغيرين امv†¡‏ & اvaومها‏ من النوعين وہه!ا & integer‏ 
فنجد أن القيمة التي تم تخزينها هي ( 5) فتم اهمال العلامة العشرية 
2- مثلا اذا اردنا ان نخزن القيمة 123456.10987654321 في ثلاث متغيرات هي :- 
sing Quantity‏ وتأخذ القيم 123456.6 لأن الحد الاقصى للدقة 7 خانات من النوع ماوہأء 
ubQuantityدd‏ تأخذ 15 قيمة من الرقم لأن الحد الاقصى للدقة 15 خانة من النوع ماubهك‏ 
ecQuantityه‏ تأخذ الرقم كله حيث أن الحد الاقصى للدقة 29 خانة من النوع ام" اعم 
ملحوظة: _انظر المثال ( 1- 3 ) بالكتاب حيث يوضح ذلك . 
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قواعد تکوین الاسماء :- 


1- أن يبدأ الاسم بحرف يمكن أن يأتي بعده حرف أو رقم أو رمز 
2- لايحتوي الاسم على مسافات أونقطة 
3- لايكون الاسم من الكلمات المحجوزة مثل ٤م‏ 

انظر جدول ص8 

بالاضافة الى ماسبق: 
1- يفضل أن يكون اسم المتغير ذات معنى مناسب لنوع القيمة مثل قيمة متوسط فيكون اسم المتغير موه م۸۷ 
2- ويفضل أن يبدأ اسم المتغير بثلاثة أحرف من البيان المناسب مثل رإاجاه5"| من نوع البيان موم)ہ| 
3- ويفضل عندما يكون اسم المتغير مقطعين أن يبدا كل مقطع بحرف Tax Rate Jû Capital‏ 
خصائص تلقائية تعط, لنوع المتغير مجرد اختياره 
1- نوع البيانات التي يمكن تخزينها في المتغير فمثلا القيمة م٥ءاھ؟‏ ٣ہ‏ مں٤‏ تناسب اllبيjl Boolean‏ 
2- العمليات التي يمكن اجراؤها عليه _( العمليات المنطقية ) أحسن استغلال للذاكرة 
3- حجم الذاكرة الذي يحتاجه المتغير ( انظر جدول ص9 ) 


الثوابت_: هي طريقة لاعطاء أسماء للقيم التي لاتتغيرأثناء تشغيل البرنامج 
والثوابت نوعين : 
1- توابت جوهرية : وهي الموجودة في هيكل الرنامج ۷/8.٤١‏ حيث لايتم الاعلان عنها وتستخدم مباشرة مثل 
اذوj Color. Black‏ 
2- ثوابت مسماة وهي التي قام المبرمج بتعريفها ويجب أن يعلن عنها بإاسم ونوع وقيمة بحيث يتم وضع حرف خاص تم 
توصيفه بعد القيمة واذا لم يتم وضع حرف بعد القيمة أصبحت قيمة صحيحة وليست ثابثة والامثلة التالية توضح ذلك 
ويتم الاعلان عن الثوابت المعرفة من خلال الكلمة المحجوزة ئه . 
Const My_School_Name AS String = " Kewan"‏ 
Const salary As Decimal=123.5d‏ 
توصيف الحرف للثوابت الذى يوضع بعد القيمة 
(S short, | Integer, L Long, D Decimal, F String , R Double )‏ 
المتغيرات" 
1 يتم الاعلان عن المتغيرباسم ونوع وقيمة اختيارية مثالJ‏ 44= Dim cc as Integer yi Dim cc as Integer‏ 
2- ويمكن الاعلان عن مجموعة متغيرات بأمر واحد "01 مثال 
Dim cc as Decimal =12.4, ss as String="good™"‏ 
3- يمكن الاعلان عن أكثر من متغير من نوع واحد باستخدام أمر dim‏ واحد adثإڈً Dim ss,cc.mm as integer‏ 
4- في حالة اهمال علامة ( = ) والقيمة التي بعدها عند الاعلان عن المتغيرفان المتغير الرقمي يأخذ القيمة صفر 
والمتغير الحرفي يأخذ فراغ 


5- عند الاعلان عن الثوابت يفضل الاعلان بالثوابت الحرفية بدلا من الثوابت الرقمية وذلك لان الثوابت تتميز بالآتي : 
1- أن البرنامج مفهوم أكثر فمثلا نكتب الف طالب بدلا من 1000 طالب 
أمر التخصيص: 
هو عبارة عن متغير على اليسار وقيمة على اليمين وبينهما معامل التخصيص ( =) مثل : قيمة = المتغير 
تخزين قيمة رقمية في متغير رقمي : 5 X=‏ 
تخزين قيمة حرفية في متغير حرفي : "لdعمصهم"‏ = ٠۳هل‏ ء۴ و عند تنفيذ الامر تخزن القيمة في المتغير 
تعريفات_: 


1- يمكن استعمال المتغير على يمين معامل التخصيص " = " ويساره أيضاً مثال : 1 + »× = × 

2- يتم ربط أكثر من قيمة حرفية ببعضها من خلال الرمj‏ " & " "welcome" &First Name& LastName Jû‏ 

3- اسم المتغيريجب أن يكون على يسار معامل التخصيص ( = ) 

4- القيمة المخزنة تكون ملائمة لنوع المتغير فالرقمية تخزن في متغير رقمي والحرفية في متغير حرفي 
فمثلا : المتغير الرقمي 7 =× .«والحرفي “ MyAdress = “ 102, meet al koolJ‏ 

5- مفهوم العلامة ( معامل التخصيص ) ( = ) في امر التخصيص يختلف عن مفهومها في المعادلات الرياضية فمثلاً 
الصيغة : 0 = 3 + × تصلح معادلة رياضية ولاتصلح امر تخصيص لوجود عملية حسابية على الشمال 

6- المتغيرات التي على اليمين لاتتغير ولكن الذي يتغير هي قيمة المتغير الموجود على اليسار 3 
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** لتنفيذ أمر التخصيص يجب : تحديد القيمة الموجودة على اليمين وذلك 


1- بإستبدال کل متغير أو ثابت بقيمت4 Price = Quantity * UnitPrice بlسحJ În‏ 
علما بأن 0.0 = Quantity = 100 , UnitPrice = 5.5 , Price‏ فیتم استبدال 
القیمتین 5.5 & 100 بالمتغيرين Quantity & UnitPrice‏ 
2- اجراء العملية الحسابية واستخراج النتيجة فمثلا في هذا المثال الناتج هو ( 550 ) 
3- ثخزين النتيجة في المتغير على الشمال فيتم تخزين ( 550 ) في هعأ۴ 
4- نجد أن القيم الموجودة على اليمين لاتتغير أما قيمة ءام الموجود على اليسارهي التي تتغير 
5- ونجد القيمة الجديدة وهي ( 550 ) تحل محل القيمة القديمة وهي ( صفر ) 
** تنفيذ أمر التخصيص فى حالة وجود المتغير على اليسار واليمين 
Count =20‏ 
Count =count +1‏ 
نجد المتغير هع يظهر على يمين معامل التخصيص ( = ) وعلى يساره أيضا و كما علمنا أنه لتنفيذ أمر التخصيص 
يتم أولا استبدال المتغير "دهع بقيمته 20 ثم تتم عملة الجمع ثم يتم تخزين القيمة في المتغیر ٤‏ مء على اليسار 
انظر متال 1 - 1 ص 16 


استخدام أمر التخصيص مع المتغيرات الحرفية (_ ورامك ) 
كما أنه يمكن تخزين القيم الرقمية المتغيرة في متغيرات رقمية يمكن أيضاً تخزين القيم الحرفية في متغيرات حرفية وباستخدام 
أمر التخصيص انظر مثال 1- 2 ص 17 
ملحوظة :- العلامة "" تعني قيمة حرفية فارغة طولها صفر أما " " تعني قيمة حرفية طولها عدد المسافات 
التحويل بين الانواع المختلفة للبيانات 
تعريفات هامه هامة : 


1- تختلف طريقة تخزين الانواع المختلفة من البيانات وبالتالي يختلف عدد الخلايا التي يتم التخزبن بها 
فمثلا طريقة تخزين القيمة الحرفية " 3 والتي تخزن في ثلاث خلايا تختلف عن طريقة تخزين القيمة الرقمية 
3والتي تخزن في خلية واحدة 
٥ -2‏ ہ.ط/يعطي للمبرمج امكانية تحويل نوع بيان معين الى نوع آخر فمثلاً لتحويل البيانات الحرفية إلى بيانات رقمية 
نستخدم للك llتعبير Parse method‏ ٍ 
3- يمكننا اجراء العمليات الحسابية باستخدام المتغيرات والثوابت وخصائص الكائنات مثل خاصية )×ه] للأداة ( كائن ) 


textBOX 
٥مإكم .ط۷ يتعامل مع محتوى الخاصية ٤×ه] على أنه بيان حرفي فيلزم لتحويله الى عددي استخدام التعبير‎ -4 -4 
method 
كل آنواع البيانات الرقمية‌التي تستخدم في الاعلان عن المتغیرات مثل .... اھa٣آc م٥ ,٣eو٥)ہ| تسمی فئات‎ -5 
classes 


(فئات أي قوالب يتم انشاء الآوامر منها ) وتشترك في ان لكل منها لهام" هه فلتحويل قيمة حرفية إلى قيمة 
عددية صحيحة ۲٥و |٣٤6‏ نستخدم 
Dim B as integer‏ 
(القيمة الحريÃ‏ ( B=lInteger . Parse‏ 
6- العلامة  (‏ ) التي تسبق الاسطر تسمى تعليق ( ملاحظة ) على السطرولايلتفت إليها المترجم 
7- اي حرف أو علامة لايمكن تحويلها الى قيمة رقم يتوقف التحويل. 
2- تحويل البيانات الرقمية إلى حرفية الدالة وهآ علماً بأن هذه الدالة لهامعامل يسمى معامل الصياغة 
بحيث اذا استخدمت الدالة بدون المعامل فقد تم تحويل البيان الرقمي إلى بيان حرفي غير مصاغ. ومعنى معامل الصياغة هو 
عبارة عن تحويل البيان من الرقم 0.08 ل % 8 وذلك فمعامل الصياغة ( "م۳ ںوج ) هنا هو العلامة /. 
أمثلة : 1- المعامل ("۸")يعيد صياغة الرقم فمثلاً لصياغة الرقم 98765.4321 يكون : 
X=98765.4321 _ x.ToString("N3")= 98,765.432‏ 
نجد أنه تم صياغة الرقم بوضع ثلاث أرقام فقط بعد العلامة العشرية لأن المطلوب ثلاث أرقام حسب المعامل )"١N3"(‏ 
7- المعامل (" © ")يظهر علامة العملة $ بجوار الرقم 
8- المعامل (" ۲ ") يظهر علامة النسبة % بجوار الرقم 
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العمليات الحسابية 


1- العلامة(١)‏ : 
قسمة رقمين باستخدام علامة القسمة العادية ( /) يكون الناتج بضورته الحقيقة ( بكس) فمذا 
( 9.6 = 48/5 ) ولكن عند استخدام علامة قسمة العدد الصحيح ( |١‏ ) يتم اهمال الرقم ( 6. ويکون 
الناتج (9 ) فقط 
2- كه للحصول على باقي القسمة مثلاً : ( 6. )من العملية( 9.6 = 48/5 ) بصرف النظر عن العدد الصحيح (9 ) 
فمثاً: 6. = 5 Nod‏ 48 
2- علامة الأس ( ^ ) تستخدمة في رفع عدد معين إلى الأاس فمثلا 5۸2525 = 
ES‏ عملياً المثال ص24 ا ا والقسمة والجمع والأس..) 
كلمة ٥ص‏ تستخدم لاظهار قائمة الاستشعار الذاتي التي تحتوي على الكائنات 
** مجموعة أوامر chڼTry_....Ca‏ 
تستخدم لاكتشاف الاخطاء التي تحدث أثناء تشغيل البرنامج .علماً بأن البرنامج يظهر رسائل تفيد بوجود خطأ بشكل 
افتراضي وبدون استخدام ٤۸‏ ٤ھ٥....‏ إ٣‏ ولکن مصممي البرامج یفضلون استخدام ٤٣‏ ٤ھ٤....‏ ل٣‏ لان هذا یتیح لھم 
التعامل مع الاخطاء بأنفسهم وعرض رسائل بذلك ويستخدم الامر ل٣1‏ في محاولة تنفيذ الاوامر التي تليه بحيث لوحدث 
خطأً ينتقل البرنامج مباشرة الى الامر الذي يلي تنفيذ الاوامر إء٤ج٥‏ وهي الرسائل التي تظهر لتعلن عن وجود خطأ 
ويتوقف البرنامج. أما في حالة عدم وجود خطأ تنفذ الاوامر إلى النھاية ویتم تجاھل الامر ۸عc٤ھC٥... .End Try‏ 
ويستخدم الامر ءاج في اصطياد الاخطاء . والامر رآ كمع نهاية المحاولة نتيجة لوجود خطأ. 


الشكل العام ن Try_....Catch‏ 
وعليك أن تعرف بأنه يمكن تكرار استخدام ٣٤ة٤..‏ إ1 أكثر من مرة في البرنامج الواحد وذلك في مقاطع مختلفة 
Tr‏ 
مجموعة أوامر لتنفيذ 
Catch‏ 
رسالة تفيد بوجود خطأً 
End Try‏ 
مجموعة أوامر للتنفيذ 
عليك مذاكرة المثال ص31 عملياً لانه يوضح استخدام الاوامر tchځCa.... Try‏ 
استخدام الاوامر ۲٥ه٥...‏ ر۲ في حالة اظهار رسالة عند ادخال قيمة حرفية في مربع عددي وأيضاً عند القسمة على صفر 
# التحويل بين انواع البيانات العددية : - 
التحويل بين أنواع البيانات العددية ( بيان عددي إلى بيان عددي آخر ).هناك نوعان: 
1- تحویل مباشر: 
ويقصد به تحويل بيان ذو سعة صغيرة إلى بيان ذو سعة كبيرةء ( والسعة هي الحيز الموجود بالذاكرة لهذا 
البيان) مثال على ذلك: يتم التحويل تلقائياً من البيان Integer to Decimal‏ 
ملاحظات :- التحويل المباشر لا يصلح فى حالتين : 
1. تحويل البيانات من النوع ماDoub‏ الی ای نوع اخر 
2. تحویل البیانات التی تحتوى على كسور ( ماbںuه‏ 0 , ماوہاS‏ ) الى النوع اة" Di‏ 


From TO 
Byte Short - Integer — Long - Single - Double —- Decimal 
Short Integer —- Long - Single - Double - Decimal 

Integer | Long - Single —- Double —- Decimal 


Long Single —- Double —- Decimal 
Decimal Single —- Double 


Single Double 


2- التحويل الغير مباشر : 
ويقصد به تحويل بيان ذو سعة صغيرة إلى بيان ذو سعة كبيرة وذلك يجوز في حالة أن تكون القيمة في البيان 
ذو السعة الكبيرة مناسبة للبيان ذو السعة الأقل وإلا سيحدث خطأ . 
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مثال_ تحويل ماده إلى إموه)"! ولكن يلزم ذلك التحويل بتوافر التصنيف وها ويسمی تصنيف التحويل 
Convert‏ والذي یتم من خلال کلمة ٥۲آ‏ 
وذلك کالتالی : اذا ردت تخزین المتغیر ماbں‌ہ٥۲25ءمطصuم‏ من النوع ماطںه0 في المتغیر 
ger‏ ue2lnteاva‏ من النوع |٤٥ ge٥۲‏ فیکون التحول کالتالي : 
value2Integer =Convert. Tolnt32( number2Double )‏ 

** أولويات العمليات الحسابية :- 

في هذه القاعدة يتم الترتيب للمعاملات ترتيباً تنازلياً (من أعلى إلى أسفل) وذلك في حالة اشتراكها في عملية حسابية 

فيكون ترتيب العمليات كالتالي: 

1- الإجراء بين الأقواس مثلاً 5+4(*2) -5 = 13=5-9*2 

2- عمليات الأس مثلا : 3+6*4 ^3/2= 27=3+24=3/9+24=3/9+6*4 

3- عمليات الضرب والقسمة( أيهما أول يتم تنفيذه) مثلا 

14=3-17=3-12+5=2/6-12+5 =2/6-2*6+ 5 

4- عمليات قسمة الاعداد الصحيحة 7=3+4=217+4 

5- عمليات حساب باقي القسمة. مثلا 6=3 كإM0‏ 39 

6- عمليات الجمع والطرح( أيهما أول يتم تنفيذه 10=4-14=4-5+9=2/8-5+9 
ملحوظة: 
في حالة وجود أكثر من عملية ضرب في الإجراء يتم الضرب من اليسار إلى اليمين مثلا: 

20=4-24=4-16+8=2*2-16+8=2*2-2*8+8 
وفي حالة تداخل الاقواس فيتم تنفيذ القيمة التي في الاقواس الداخلية أولاً › فمثلاً 
(5+ (2*8) /13=8+5=2/16+5=)2 


إجابات أسئلة الفصل الاول: 


(+)<(b)(a)‘(€ 


Statement 
Dim n1,n2,n3 as integer 
N3=N1+N2+N3 
N2=N2+2 
N1=4 

N2=N1-3 
N1=N1+N1 
N2=N2+N3 
N2=5*N2\N1 


ooo ooo 


ج3 Dim number1 as Integer‏ 
 Number1= ( 4 * 3^2)/(10 Mod 3 - 1)‏ _ 
0-(36/)1-1 = هذا خطأ لأن القسمة على صفر ليس لها معنى 


۰ EE Form1 


Private Sub Buttonl CliCkKan ns 

Dim av, fn, sn, tn As Integer 

fn Integer.Parse (Me.txtfirst. Text) 
sn Integer.Parse (Me.txtsecond. Text) 
tn Integer.Parse (Me.txtthird. Text) 
ay (ENF SR FE EB) / 3 

Label5.Text = av.ToString ("p") 

End. SUB 

EU GIS 


Label5 


calculate 
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أسئلة الوزارة 


السؤال الاول: 
أكمل مكان النقط بما تراه مناسباآ لكي يجعل العبارات صحيحة: 
أراد يوسف حساب مساحة دائرة ماء فقام بكتابة البرنامج التالي: 
Const Pi As Single = 3.14‏ 
Dim R As Single‏ 
Dim Area As Double‏ 
R = 1000‏ 
Area =Pi*R*R‏ 
MsgBox ( Area )‏ 


1- استخدم يوسف المتغير العددي R۸‏ من نوع ............ لوضع بداخله القيمة e‏ 

2 كمااستخدم أيضا المخفزن الععمددي الثنابت .... من النوع ماومآ؟ لتخصيص له 

E القيمة‎ 

3- كمماتËöم‏ استخدام المتغفير العددي ن اللوع ق 
فيه .................. وهي تساوي تماما 8^2 * ¡۲. 


4- تم الإعلان عن المتغير العددي 8R‏ باستخدام الكلمة Dim‏ ›کماتم الإعلان عن المخزن الثابت آ۴ باستخدام الكلمة 


اختر الإحاية الصحيحة مما بين الة مما أز 
(Dim, Const, E , Single )‏ 
1- أراد خالد حساب مجموع درجات طالب في المواد الدراسية فقام باستخدام متغفيرات عددية من 


النوع ماعورز؟S‏ حيث تم الإعلان عنها بالكلمة N‏ 


2- كما استخدم أيضا متغير من النوع ق فة امم الطتاتب: 

3- كماتم استخدام متغفير من النوع OO‏ لوضع فيه مجموع درجات المواد الدراسية. 
إحابة السؤال الأول: 

1000 Single -~1 

3.4 Pi -2 

Pi*R*R Double Area -3 

Const -4 


إحابة | وال التاز 


- المتفير ا الذي يأخذذ قبم عددية صحيدة من 0 إلى 255 هوو 

.( String ¬ Integer ¬ Byte ) gill من‎ 

.False yİ True ةھميقلl‎ ذخÎİy‎ ( Short - Byte - Boolean ) عaنلl المتغير من‎ -2 

3- لتخزين قيم عددية تحتوي على كسور نستخدم متغيرات من gillع „(Single —- Short ¬ Integer)‏ 

4- لتخفزين قيم عددية صحيحةة لاتحتوي على كسور نس تخدم متغفيرات 
من Single - Double - Integer ) Egil‏ (. 

5- من قواعدتسميۉة المتفيرات أو الثنواببت في البرناممهج» يجب أن 
تبدأ ب ( رقم - حرف - أي رمز ). 

6- يمكن استخدام الكلمة ( E۸۵ - ٣)٥رئ٤ - ٥1m‏ ) للإعلان عن أسماء المتغيرات في البرنامج. 


إعداد حامد محمد _ موجه كمبيوتر_ادارة منية النصر التعليمية_ «ره»ء.|ازهإ_وء@d421ءm‏ 4ط صفحة 7 من 25 


7- يمکن استخدام lلكأمة‏ ) Dim - Const - Sub‏ ( للإعلان عن أسماء الثوابت في البرنامج. 
8- تستخدم أو ار ) C0n/As ¬ Dim/As ¬ Try/Catch‏ ) لاكتشاف الأخطاء التي تحدث أشاء 
تشغيل البرنامج والتعامل معها. 
9- بعد تنفيذ الصيغة الحسابية 4 * 3 +2 يكون الناتج هو ( 14- 9-20). 
0- ناتج تنفيذ الصيغة الحسابية 1+372 هو (10- 9-16). 
إحانة السؤال الثالتن 
إاحابة الاختىار من متعدد: 


Integer ¬4 Single ~3 Boolean ~2 Byte ~1 

Try/Catch ~8 Const ~7 Dim ~6 حرف‎ -5 

10 -10 14 -9 

1- المخازن التي يمكن أن تتغير قيمها أثناء تشغيل البرنامج يطلق عليها اسم "المتغيرات'. e)‏ 
2- المخازن التي تتغير قيمها أثناء تشغيل البرنامج يطلق عليها اسم "الثوابت'. (E)‏ 
3- المتغير من النوع إءعم),1 يأخذ تيم عددية صحيحة من 0 إلى 255. )4( 
4- المتغير من النوع ١٠ر8‏ يأخذ قيم عددية صحيحة من 0 إلى 255. )55( 
5- المتغیر من النوع 8٥٥1٥4”‏ یأخذ القیمۂ eں٣۲‏ أو eءاھ۴. e)‏ 


6- لتخزين قيم عددية تحتوي على كسور نستخدم متغيرات من النوع .Short yi Integer‏ (.....( 
7- لتخزين قيم عددية تحتوي على كسور نستخدم متغيرات من النوع ماعہSi‏ أو .Double‏ ).....( 


8- من قواعد تسمية المتغفيرات أو الثوابت في البرنامج» يجب أن تبدأً بحرف. E)‏ 
9- يمكن استخدام الكلمات "1 أو إمعمt!‏ أو ماطuه(‏ كأسماء لمتغيرات في البرنامج. es)‏ 
0- تستخدم الكلمة "01 للإعلان عن أسماء المتغيرات داخل البرنامج. )5 
1- تستخدم الكلمة ٤«داوره)‏ للإعلان عن أسماء الثوابت داخل البرنامج. (.....( 


2- تستخدم أوامر 1٤٤٣/ر۲۲‏ لاكتشاف الأخطاء التي تحدث أثناء تشغيل البرنامج والتعامل معها. (.....) 
3- من أولویات العمليات الحسابية» عملية الجمع تسبق عملية القسمة عند التنفيذ. ) ا ( 
4- من أولويات العمليات الحسابية» عملية الضرب تسبق عملية الطرح عند التنفيذ. (.....) 
5- تنفيذ العمليات التي ما بداخل الأقواس تسبق جميع العمليات الحسابية. )۰۰-۰۰( 


إحابة السؤال الرا 
احابة الصواب والخطأ ( ۷ و ×): 

7 ٠ -4 x -3 × -2 7 -1 
7 -8 ۷7 -7 × -6 7 -5 
7⁄7 -12 x -11 7 -10 x -9 
7 -15 7 -14 x -13 
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السوال الخا 

ضع علامة (7) أمام العبارة الصحيحة وعلامة (×) أمام العبارة الخطاً مما يلي: 

1 البيانات التي يتم ادخالها للبرنامج تخزن في متغيرات بذاكرة الجهاز الداخلية. 

2- تتكون الذاكرة الداخلية للكمبيوتر من مجموعة خلايا تسمي ء)ءاط. 

3 إذا كانت القيم المخزنة تتغير أثناء تشغيل البرنامج فإنه يطلق على مخازنها بأنها متغيرات. 

4- إذا كانت القيم لا تتغير أثناء تشغيل البرنامج فإنه يطلق على مخازنها بأنها ثوابت. 

5- المتغیرات من آنواع (٤0۲ط؟‏ & ع٫0ا[‏ & إءعم1«t)‏ تستخدم لتخزين الأعداد الصحيحة فقط 
وليست الأعداد التي تحتوى على كسور. ) ) 

6- يسمح أن يحتوى اسم المتغير على أي رموز أو علامات خاصة كالمسافة والنقطة وعلامة الاستفهام وعلامة التعجب. ( ) 
7- لا يسمح بأن يكون اسم المتغير من الكلمات المحجوز5 (reserved words)‏ في Visual Basic‏ 
.(dim , double, integer,const) Jûh‏ ) 
8- يتم الإعلان عن المتغيرات باستخدام جملة ص01. ) 
9- الثوابت المسماة هي ثوابت يقوم المبرمج بتعريفها طبقاً لاحتياجات البرنامج. ) ( 
0- يتم الإعلان عن الثوابت باستخدام جملة tكرهC.‏ ) 

إجابة السؤال الخامس : 


ر ر ا ر ر 
سه سا سا س 


¥۷ -5 ¥ -4 ¥ -3 ×» -2 ¥ -1 
7 -0 ¥۷ -9 7 -8 ¥ -71 ×* -6 


الفصل الثاني - الشروط والقرارات 
س وضح معنى الصيغة أو ( التعبير) الشرطي ؟ 
ج هو عبارة صياغة (تعريف ) للعلافة بين قيمتين ( القيمة يمكن أن تكون متغير أو خاصية أو ثابت أو قيمة مجردة) فالتعبير الشرطي له 
قيمة تتوقف على صحة العلاقة فتكون القيمة مں١])‏ أو عدم صحتها فتكون القيمة مءاه؟ 
ولصياغة التعبير الشرطي نستخدم علامات المقارنة مثل =,=<,=>,<>,>, < 
فىثلا : 8=9 , A=5‏ 
A>B Result False & A<B Result True‏ 


- لأمر( ماع .... ٣rheآ‏ ..... ۴| )فھذا الأمر معناہ : اذا كانت القيمة مں٣]‏ اذهب لتنفيذ الأمر. فيما عدا ذلك نفذ الأمر التالي 
وكذلك العكس في حالة القيمة مءاج۴ 


فتكون القاعدة 
IF Condition طbرژll Then‏ 
نفذ مقطع الجملةً1 1 Statement block‏ 
فيما عدا ذلك نفذ الجملة 2 مئاع 
Statement block 2‏ 
الخروج من الشرط ۴| E‏ 
مثال :لحساب الراتب الاسبوعي لموظف ساعات العمل 40 واجر الساعة 5 ج الزبادة عن 40ساعة يكون الاجر للزيادة 10 
Private Sub Buttonl_ Click‏ 
Dim HW, S, OT‏ 
HW = 45‏ 
If HW > 40 Then‏ 
OT = 10 * (HW - 40)‏ 
S = 40 * 5 + OT‏ 


Else 
S = 5 * HW 
End If 
MsgBox (" The salary =" & S) 
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س : وضح الفرق بين الأمريù (IF ...Then ) s (IF .... Then .. Else)‏ ؟ 
ج : الامر( هماع .. ١٠ط۲‏ ...۴| ) يستخدم في حالة هناك بديلين بمعنى اذا لم يكن الاول نفذ الثاني 
ما الأمر ( ...۲۸٠۲٣۸‏ 1۴ ) يستخدم في حالة هناك بديل واحد بمعنى اذا لم يكن الاول اخرج فمثلا : 
IF Age > 16 Then‏ 
(" يمكنك الحصول على بطاقة الهرية"") ×ه8وء“× 
الشروط المركبة End if‏ 
أ- تستخدم الشروط المركبة في حالة اتخاذ قرار بناءآعلى تحقق شرطين وليس شرط واحد 
ب- تستخدم المعاملات المنطقية 0۲,۸٣۵ , ٥٤‏ في الربط بین أكثر من شرط 
1 طريقة عمل المعامل ( N0٤‏ ) 


Not True = False 


Not False = True 


)0©٣ ( طريقة عمل المعامل‎ -2 
True Or True = True 


True Or False =True 


)۸٣ل‎ ( طريقة عمل المعامل‎ -3 
True And True 


س1 الشرط ( 8B‏ 0۲ ۸) یکون صحیحا اذاکان : 
أ اذا کان الشرطان أو أحدھما صحیحاً (مں٣٣‏ ) 
ب- اذا كان الشرطان خطأ ( مواھ۴). 
س2 الشرط ( 8B‏ ۸۸4 ۸) یکون صحیحا اذاکان : 
أ۔ اذا کان الشرطان صحیحین(مںإ 
ب- اذا كان الشرطان خطا ( مواج۴). 
ت- اذا كان الشرط الاول خطأ والثاني صحيح 
س3 ذا كان الشرط ( 50 = ۸ ۸٥٤‏ ) علما بأن ( 50 = ۸) فتكون القيمة 
١‏ خطاً ب۔ صح ج- لاقيمة للشرط 
مثال : لحساب أجر العامل طبقاً لسنوات الخدمة 
Dim ys As Short‏ 
Dim hw As Decimal‏ 
Dim wr As Decimal‏ 
Dim salary As Decimal‏ 
Try‏ 
ys = Short. Parse (Me. TextBox1. Text)‏ 


hw = Decimal. Parse (Me.TextBox2 . Text) 
If ys < 5 Then 


Wr = 5 
Elself ys < 10 Then 
Wr = 7 
Elself ys < 15 Then 
Wr = 10 
Elself ys < 20 Then 
Wr = 12 
Else 
Wr = 15 
End If 
salary = wr * hw 
MsgBox (" your wage rate =" & wr & vbCrLf & "your salary=" & salary) 
Catch 
MsgBox ("check your inputs") 
End Try 
End Sub 
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ويقصد بذلك مقارنة المتغيرات الحرفية بمتغيرات أو ثوابت حرفية أخرى بحيث أن لكل متغير كود 
ملحوظة 
1-المتغيرات الحرفية والثوابت عبارة عن(أرقام وحروف ورموز ) 
2-الكود عبارة رقم ثابت ويسمى رتبة لكل متغير. 
13 ۸ طريقة لتخزين الرموز فى ذاكرة الحاسب الالى حيث يتم اعطاء كل حرف أو رقم أو رمز رتبة أو رقم ثابت لا يتغير 
فمثلاً الحرف ج له كود ( رتبة ) وهو الرقم 97 › و الحرف ۸ له كود ( رتبة ) وهو الرقم 65 
لذا يمكن أن نقارن بين المتغيرين ه,۸ فيكون رتبة ۸ أقل من رتبة ج 
مثال على ذلك المقارنة بين "dإمصA۸,‏ إمصطج نجد أن an med > Ahmed‏ قيمته seا۴a‏ . وھكذا 
لمزيد من المعلومات عليك متابعة الجدول ص59,60 . 
استخدام ‏ ۴| مع الأدوات: 
Radio Button -1‏ تستخدم في اتاحة مجموعة من البدائل ر منها فقط. 


2- >80 )عمط تستخدم في اتاحة مجموعة من البدائل لاختيار ا e‏ 


CSE E EE SE E 


٣ CherkEox1 
لاختیار‎ Chek 80× , Radio 8u†)0 في آنه يضم بداخله مجموعة من‎ یrەںم‎ 8٥×× -3 
aroupBax1 اختیار واحد من کل منهما.‎ 


تعريفات لخواص الادوات : 
1- خاصية ٥۳هل‏ تستخدم لتحديد اسم لادا ) rad‏ ن (Group  grp - Check i CHK - Radio‏ 
2- خاصية ۲هاه٥‏ )عه تحديد لون الخلفية و هام٥ ۴٠۴۳٠١‏ تحديد لون الكتابة 
ce -3‏ earanممA‏ تستخدم لتحدید شکل الاداۃ 
Checked -4‏ لتحدید ما اذا کان الاداة تم اخیارھا أم لا 
5- edاEnab‏ تتیح التعامل مع الاداة 
Height -6‏ لتحدید ارتفاع الاداة و ٤ا۷‏ لتحدید عرض الاداة 
7- موهnص!‏ تحديد الصورة 8- ٠×‏ تحديد الكتابة 
٠ -9‏ اطأء۷ تحدد مااذاكانت الاداة مرئية أم لا 
0- eاatstyا۴‏ تحدید شکل الاداۃ ×ط مupهاوg‏ 


7.5, بسعر‎ 7|٤٥ بسعر 21.0 واختبار‎ CK8٥ مال تصميم برنامج لعمل فاتورة بحساب المريض مقابل اختبار‎ -1 
Private Sub Buttonl_ Click 
Dim total As Decimal = 0.0 
If ChkCBC.Checked = True Then 
total = total + 21.0 
End If 
If chkTIC.Checked = True Then 
total = total + 7.7 
End If 
1bltotal.Text = total 
End If 
End Sub 
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حل أسئلة الفصل الثاني 
ج1- ( ب›أءب »أ »ج › جد د« د  (‏ ج2- " Good‏ " 
ج3- وضع ۴| همع بعد السطر السادس مباشرة ووضع ۴| بدلا من ۴امءاع في بداية السطر السابع. 


Private Sub Buttonl1l Click سے‎ 
Dim hour As Integer Form1 EES 
hour = 13 
If hour <= 11 Then 
Me.Label1.Text = "am" 
Else 
Me.Label1.Text = "pm" 
ENG TÊ 
EF BHOUE- 2-23. THER 2 : 
Me.Label1.Text = "hour can not be more than 23" j Buttonl Û 
H1se 
ERG TÊ 
ENG Sb 


Dim ba, tr As Decimal 
Lr = Val (Me.TextBox1. Text) 
ba = ba ¥  tE 
If Me.RadioButton1l.Checked = True Then 
ba = ba + 150 


If Me.RadioButton2.Checked = True Then 
ba = ba - 120 


If ba < Me.RadioButton2.Checked Then 
MS980±× )" اللهك ضرف لمكن‎ ٠ لاتكقي رصسذدكح لأآن‎ "( 


If Me.RadioButton3.Checked = True Then 
ba = ba - 50 

End TÊ 

Me.TextBox2.Text = ba 


أسئلة الوزارة 
السمؤوال الاول: اختر للمجموعة ( أ ) ما يناسبها من المجموعة (ب): 
(( ب( 
1 الرمز > يسمي ..( أكبر من أو يساوي . 
2- الرمز => يسمي ...) لا يساوي. 
...) يساوي . 
...) أصغر من أو يساوي. 
....) أكبر من. 


1 


السؤال الثاني : إذا كانت 7 , ,ل ,۷ ,× متغيرات صحيحة قيمها كالتالي: 4= , 3=ل , 2= , ×X=8‏ 
اختر القيمة الصحيحة للمتغير .7 بعد تنفيذ الأوامر التالية: 
If X>Y And J<K Then‏ 


Z=X-Y 
Else 
Z=J-+K 
End If 
1 : أ- 6 ب-7 ج- 8 إجابة السوال الثانى‎ 
12 
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السؤال الثالث: اقرا التعليمات التالية: 

Dim Age, Mark , Total As Single 
Age =25.5 
Mark = 90 
If Age < 26 Then 

Age = 16 

Mark=100 
End If 
Total = Mark * 2 


بعد تنفيذ هذه التعليمات» اختر الإجابة الصحيحة لكل مما يلي: 


1- قيمة المتغفير 6ع تساوي : أً- 25.5 ب- 90 جڄج- 16 
2- قيمة المتغير )اه1 تساوي: أ - 90 پ- 100 ج- 25.5 
3- قيمة الشرط 26> ع۸ هي: أ- 25.5 ¬ True‏ ج False‏ 
4- قيمة المتغير 1ه)10 تساوي: أً- 200ب- 180 ج- 190 
إجابة السؤال الثالث : = چ 2- ب 3- ب 4- أ 


السوال الرابع: اختر الإجابة الصحيحة مما بين القوسين لكل مما يأشي: 


( RadioButton - CheckBox - GroupBox — Checked —- Enabled - CheckedOn ) 


1- تحدد الخاصية .............. أنه تم اختيار !|5 .CheckBox‏ 
2- تحدد الخاصية .............. ما إذا كان المستخدم يستطيع التعامل مع الأداة. 
3- تستخدم الأداة .............. لعرض البدائل على أن يقوم المستخدم باختيار بديل واحد فقط. 
4- تستخدم الأداة .............. لعرض البدائل ويمكن للمستخدم اختيار أكثر من بديل. 
5- يمكن استخدام الأداة .............. لتقسيم الأدوات إلى مجموعات. 
إجابة السوال الرابع : 
GroupBox ~5 CheckBox ¬-4 RadioButton ~3 Enabled -2 Checked -1‏ 


EE Formîl EE Form : الخا‎ ۱١ ١ 


2 )1( 

اختر رقم التصميم المناسب من هذين الشكلين: ............ إجابه4 السوال اخاس 2 

۱ ال السادس : Formî Form‏ 
صن الهوايات TE‏ 
الغراءة 0© السباحة 0 التأليف ا القراءة 1[ السباحة [ ]1 التأليف 
كرة القدم 0© الخياطة 0© الرسدطم ا1 كرة القدم |1 الخياطة ا1ا الرسطص 

(1()( (2) 
اختر رقم التصميم المناسب من هذين الشكلين: ........... إجابة السؤال السادس : 2 


السؤو ال السا 


اخ حيار التو والدي ايجة 


اختر رقم التصميم المناسب من هذين الشكلين: ...... إجابة السوال السابع : 2 
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عل حجيد اللغعات الآّجنيية ؟ 
اللخات ايأجثيية اثتي أجيدها: النخات ايأجثيية اثتي أجيدها: 


ااي جي 


[ ] الانجليزية الانجليزية 
[] اتقرتسية ل القرتسية 
[ الألمانية الألمانية 


1/7۱ 


السؤوال التا 


+ + ت ١‏ جتيك + ٩‏ جني 7 ١۲۰۰‏ جنيهد ٠١٠١١‏ جنيه ۹١‏ جنيهك 


Lab e]2 الاجمستي‎ Lab الاجمٿتي 2[ع‎ 


اختر رقم التصميم المناسب من هذين الشكلين: ...... 
.إجابة السوال التاسع: 1 
السوال العاشر: إذا كانت قيمة المتغير ۸ تساوي 20 وقيمة المتغیر 8 تساوي 15 
ضع علامة (7) أمام العبارة الصحيحة وعلامة (×) أمام العبارة الخطاً مما يلي: 
1- ناتج تنفيذ الشرط ۸<8 يساوي ue‏ ا. 
2- ناتج تنفيذ الشرط ۸<=8 يساوي عءاه۴. 
3- ناتج تنفیذ الشرط 8>۸ يساوي eں٣ا.‏ 
4- ناتج تنفيذ الشرط 8>=۸ يساوي عءاه۴. 
5- ناتج تنفيذ الشرط ۸><8 يساوي عءاه۴. 
6- ناتج تنفيذ الشرط ۸-8<8 يساوي rue‏ . 
7- ناتج تنفیذ الشرط ۸-5>=8 یکون ue‏ . 
8- ناتج تنفیذ الشرط ۸>۸ یکون عu٣ا.‏ 
9- ناتج تنفیذ الشرط 8<8 یکون ue‏ . 
0- ناتج تنفیذ الشرط ۸-5<=8 یکون ue٣ا.‏ 
إجابة السؤال العاشر : 


×» -5 x< -4 ¥ -3 ×* -2 ¥ -1 


ر ل ر ر ر ر ر ر ر ر لے 
سه سا سا سا سا سا سا سا سا س 


¥ -10 x -9 x< -8 ¥ -7 * -6 
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Arabic=30 

English=20 

If Arabic>25 Then 
Total=Arabic +English 
Avg=( Arabic +English )/2 
Else 

Arabic=25 

English=22 

Total=Arabic + English 
Avg=( Arabic +English )/2 
End if 


قيمة المتغير ءiاطه٣۸‏ تساوي 30 . 

قيمة المتغير طءناعم ٤‏ تساوي 22. 

ناتج التعبیر .TRÛUE jنوکي ۸۲41 c<25‏ 
قيمة المتغيراه٤٠‏ تساوي 47 . 

قيمة المتغير ع۸۷ تساوي 23.5. 


: اقر أ التعلبمات التالة: 


Mark=90 

If Age<26 Then 
Age=16 
Mark=100 

End If 
Total=Mark*2 


بعد تنفيذ التعليمات السابقة اختر الإجابة الصحيحة لكلا مما يلي. 


1- قيمة المتغير ع۸ تساوي : أ- 25.5 ب- 90 
2- قيمة المتغير )اه1 تساوي: أ - 90 ب- 100 

3- قیمة الشرط ۵>26 ع۸ : أ - 25.5 ¬ True‏ 

4- قيمة المتغير 1ه٤٠۲‏ تساوي: أ - 200 ب- 180 


اثالث عشر : افر أ التعلبمات التالىة: ۸=50 8=30 


أكمل الجمل التالية مستخدما lلقيp TRUE - FALSE‏ 


.1 
.2 
.3 
4 
5 
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قيمة الشرط 8<10 0۸ ۸-50 يکون DANE‏ 
قيمة الشرط 8-10 ۸۸5 ۸-50 کون AS‏ 
قيمة الشرط 8<10 N0٧01‏ يكون A‏ 


. قيمة الشرط 8=30 ۸.5 ۸-50 يكون e‏ 


قيمة الشرط 8<10 0۸ ۸-20 يیکون EN‏ 


جچ- 16 
چ- 25.5 
False‏ 
ج-190 
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OOD 


If A>=90 Then 

MsgBox “ jina” 

End If 

If A<90 And A>=75 Then 
MsgBox ”جيد جد|“‎ 

End If 

If A<75 And A>=50 Then 


”liجج“ MsgBox‏ 
End If‏ 
If A<50 Then‏ 
”راسپ“ MsgBox‏ 
End If‏ 
بعد قراءة التعليمات السابقة ضع علامة ( > ) أمام الإجابة الصحيحة وعلامة ( × ) أمام العبارة الخطاً لكلا مما يلي : 
1. إذا کان ۸-92 يظهر مربع كتابه يحتوي على ممتاز ) ( 
2. إذا كان ۸-49 يظهر مربع كتابه يحتوي على ناجح ) ( 
3. إِذا کان ۸-77 يظهر مربع کتابه يحتوي على جید جدا ) ( 
4. إذا كان ۸-88 يظهر مربع كتابه يحتوي على جيد ) ( 
5. إذا کان ۸-70 يظهر مربع كتابه يحتوي على ممتاز ) ( 
6 إذاكان ۸-30 يظهر مربع كتابه يحتوي على ناجح ) ( 
7. ٳذا کان ۸-55 يظهر مربع کتابه يحتوي على جيد ) ( 
8. إذا کان ۸-90 يظهر مربع كتابه يحتوي على ممتاز ) ( 


السو ال الخامس عشر : اختر الإجابة الصحيحة مما بين القوسين لكل مما يأتي: 
RadioButton - CheckBox - GroupBox — Checked —- Enabled - CheckedOn )‏ ( 


1. الخاصية .............. تحدد ھل تم اختيار |Jأد|ö CheckBox‏ . 

2. الخاصية .............. تحدد إذا كان المستخدم يستطيع التعامل مع الأداة. 

3. تستخدم الأداة .............. لعرض البدائل على أن يقوم المستخدم باختيار بديل واحد فقط. 
4. تستخدم الأداة .............. لعرض البدائل ويمكن للمستخدم اختيار أكثر من بديل . 

5. تستخدم الأداة .............. لتقسيم الأدوات إلى مجموعات . 


: إذا كانت قيمة التة 


ضع علامة (۷) أمام الإجابة الصحيحة وعلامة ( × ) أمام العبارة الخطأ. 

أ- ناتج الشرط ۸<8 يساوي ٤۴لا1R.‏ 
ب- ناتچ الشرط ۸<=8 يساوي .۴FA|S۴‏ 
ج- ناتج الشرط 8>۸ يساوي ٤لاR۸؟.‏ 
د- ناتچ الشرط 8>=4۸ يساوي ۴€؟ا۴FA.‏ 

ه - ناتج الشرط ۸><8 يساوي S۴|ا۴۸.‏ 

و- ناتج الشرط ۸-8<8 يساوي ٤لاR۸؟.‏ 

ز- ناتج الشرط ۸-5>=8 يکون ٤لا‏ ۸؟. 


کک ل لک لک لک لک اص 
س سس سا سا سا سے س 
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إجابة السؤال الحادي عشر:(⁄) ب-(×) ج-(7) د- (×) ه-() و-(×) ز-() 
إجابة السؤال الثاني عشر:_ (“) 2- (×) 3- (“) 4- (×) 5- )×X(‏ 
إجابة السؤال الثالث 
1-ج- 16 2- TRUE -ç-3 100-ç‏ 4- أ- 200 
إجابة السؤال الرابع عة 


TRUE -5 TRUE -4 FALSE -3 FALSE -2 TRUE .1 
(/(-8 )×(-7 )×(-6 )×(-5 )×( -4 )۷(-3 )×( -2 )> (=1 إجابة السؤال الخامس عشر:‎ 


إجابة السؤ ال الساد ن 
.GroupBox~5 .CheckBox -4 . RadioButton -3 . Enabled .-2 Checked .1‏ 
الفصل النالث الثالث 


4~ الامر مہہ!ا ا Do While...‏ تنفيذ الاوامر ايدام من الامر الذي يلي ا 


الشرط مں ۲ فيستمر التكرار أما لو مءاهج۴ فينتهي التكرار ويقوم بتنفيذ الامر الذي يلي كلمة |٠٠١‏ مباشرة 
Do While...condition‏ 
Statement 1‏ 
Statement 2‏ 
To Statement n‏ 
Loop‏ 


مثال : بإستخدام الامر مهه| .......eااhإw D0‏ صمم برنامج لجمع الاعداد الفردية من 1 حتى نهاية ( ٤اص|ا)‏ 
رقم صحیيح موجود فی |ادöl textbox‏ 


EFEvVaLE SUB BuUtLon1 Click i Formı EK 


Dim limit, x, total As Integer 
limit = Integer.Parse (TextBox1.Text) 
x = 1 
Do While x <= limit 
total = total # x 


ga ا‎ i errr 
Loop ا‎ 
Me.Label2.Text = Format (total, "") 

ENG. Sib 
End Class Add odd 

Numbers To 

Limit 
انظر بالكتاب ص97 جدول 2-3 تتبع تنفيذ المثال‎ 
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ملاحظات- 
1- تم اعطاء الخاصية ٥ار†Sام 80rd‏ القيمة ۴1×35 › والخاصية Size‏ o{ں۸‏ القيمة مsاج۴‏ وذلك للاداة 12مLab‏ 
واستخدمنا الدالة ۴٠١١۳۵٤‏ لتحديد شكل المخرجات من حيث ظهور الارقام بإاستخدام العلامة العشرية ( ›) والاصفار 
وشاغلات أماكن الارقام (#) ويكونوا بالشكل (#۰0 ) 
فمثلا : 1- استخدام الرقم 3.456 مع ("00.00") ۴٠۲٣۵٤‏ تكون نتيجة مخرجات الرقم 03.45 فنجد أنه تم إستبدال 
الصفر برقم والفراغ بصفر 
2- و- استخدام الرقم 3.456 مع ( " ##. ۴١١۳٣ ۵٤)"##‏ تكون نتيجة مخرجات الرقم 3.45 فنجد أنه تم 
إستبدال العلامة # برقم والفراغ بلا شئ 


5-lلٺaر Next‏ ...۴ : يستخدم في معرفة عدد مرات التكرار مسبقاً 
For counter=start to end step Increment‏ 
Statement1‏ 
Stetement2‏ 


.Stetement n 
Next 
Stetement xX 
تحدد نهاية التكرار‎ "٥×٤ تعتبرالكلمة ۴۲ بداية التكرار والكلمة‎ 
هو متغیر رقمي یقوم بحساب عدد مرات التکرار‎ دunte٣‎ 
آ1٥ هي قيمة رقمية تحزن بالعداد 6ا٣ uهء توضع على يمين الكلمة‎ St , 
ويستمر التكرار طالما أن قيمة ٣هtء أقل من قيمة ه0٣٠ ويتوقف‎ ٠ أما ۵ع هي قيمة رقمية توضع على يسار الكلمة‎ 
التكرار مع العكس‎ 
۲۴۳6ء "| ) وهي‎ ٣٤ ( و ا م تعنى خطوة واستخدامها اختياري فعند اختيارها فذلك يعني أن التكرار يزداد بالقيمة‎ 
قيمة توضع بعد م٥5 وفي حالة عدم استخدام مه تزيد قيمة العداد بشكل افتراضي بمقدار (1 )بعد كل تكرار‎ 
التي على يمين 10 عنئذ ينتهي التكرار‎ ٠١١ ويستمر التكرار حتى تصبح قيمة ٤٣ه)5 التي على اليسار اكبر من القيمة‎ 
مثال‎ "٥×٤ ويتم تنفيذ الامر الذي يلي‎ 


Private Sub Forml1 Load 
Dim counter, x As Integer 
For counter = 1 To 20 Step 2 
MsgBox (counter) 
NX 


ENG Sub 


1-6دا5 ListBox‏ 
هي أداة ترتبط غالبا بالتكرار › وتتيح للمستخدم انشاء قائمة من العناصر نختار منها وهي عبارة عن مستطيل بداخله صفوف 
نصيةوعندما يزيد النص عن حجم المستطيل تنشىء شريط تمرير رأسي وافقي ج8 اهإء؟ 
** خصائص ٠×‏ 8اا :_الخاصية "٠‏ ههل لمعرفة اسم الادارة › الخاصية و٠ ]])٠‏ معرفة العناصر الموجودة داخل 
الاداة» والخاصية Horizontalscrollbar‏ تحدید القيمة ٥ءاھ۴‏ أو مں ٣‏ لشريط التمريرء الخاصية 
ect editems‏ ام لتحديد العنصر الذي وقع عليه الاختيار › الخاصیة d‏ ٥٤ء‏ تحدید قيمة مں١) o٣‏ مsاfa‏ 
لترتيب العناصر ابجديا بصرف النظر عن ترتيب ادخالها . 
طرق الخاصية وصم)| للأداة × 8ءأ 
1- الطريقة Add(Text)‏ اضافة النص مابین قوسین قي آخر القائمة. Istdays.Items.Add ("saturday")‏ 
2- الطريقة Count‏ لمعرفة عدد العناصر قي القائمة MsgBox (Me.1stdays. Items.Count)‏ 
Insert (Index, Text) -3‏ اضافة text‏ کي مکان 1stdays.Items.Insert (1, "sunday") ah‏ 
Remove(text) -4‏ حذف 1stdays. Items .Remove ("sunday")  ùa text‏ 
Remove At (index) -5‏ حذف العنصر المحدد برقم ترتیبه )4( 1stdays. Items .RemoveAt‏ 
Clear() -6‏ تستخدم لإفراغ 0X‏ is1BاL‏ من کل العناصر () +مه1). 1stdays. Items‏ 
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مثال: تصميم برنامج لادخال أيام الاسبوع فى ×0 8ء[ ونسخ المحتويات إلى ×٥8ءا]‏ آخر 


الوك الوك و اضافة الايامح 
Private Sub btnAddDays_ Click‏ 


Me.lstdays.Items.Add ("saturday") | E Form1 - × 
Me.lstdays.Items.Add ("sunday") e ee 
Me.lstdays. Items. Add ("monday") 0 
Me.lstdays.Items.Add ("tuesday") Days of the week ChasenDays 
Me.lstdays.Items.Add ("wednesday") lkdays lstchosen 2 
Me.lstdays.Items.Add ("thursday") ا‎ 
Me.lstdays.Items.Add ("friday") 
Me.lstdays. Items. Remove ("sunday") 
Me.lstdays. Items. RemoveAt (4) 
Me.1lstdays.Items. Insert (l1, "sunday") 
MsgBox (Me.lstdays.Items.Count) 
لرن نسح الإاياع‎ E El الكوة‎ 
Private Sub btnCopy_ Click ا‎ 
Me.1lstchosen. Items.Add (Me.lstdays. SelectedItem) | 
مسح الاأتاح‎ E I NN N | 
Private Sub btnClearDays Copy ClearWaekD Clearthase 
y أ‎ Lae Chosen | 25 nı Days 

Me.lstdays.Items.Clear () 

۰ الكوة اتر ايع لزي ممح ماق يه 

Private Sub btnClearChosen Click ا‎ 

Me.l1lstchosen.Items.Clear () 


إجابات أسئلة الفصل الثالث: ج1 :(ج) (ب) › (د)›(ج)» (ب)»(أ) 
ج2 : اضافة قيمة 0=× قبل هاا 0٥ W‏ واضافة 1 + × = × بعد هااإW‏ 00 ثم نفذ البرنامج كما هو ولا تنس الاعلان عن المتغيرات 
: عدل إلى 10 =< × Do‏ ثم أكمل البرنامج كما هو. 

: (أ) تنفذ » (ب » ج ) لاتنفذان 
X‏ 
4.5 
9 


الامر 

X= 4.5 
For y = 0 To 7 Step 3 
X=X*2 18 
Next y 36 

y۷ =1 ج6 :التحويل‎ 
Do While (y <= 10 ) 
MsgBox(y*y) 
Loop 


OW OOS 


أسئلة الوزارة 


1- الأمر Do Whi! .....00p‏ عندما یکون ناتج الشرط :٣ue‏ 

أ- لا يتم تنفيذ أي أمر من أوامر التكرار. ب- يتم تنفيذ أوامر التكرار. ج- يتم تنفذ جزء من أوامر التكرار. 
2- في الأمر الآتي 2.....٥×٤‏ pه)؟‏ 6 ه) 1= ۴٠١ ١‏ عدد مرات التكرار يساوي: أ- 3 ب-4 ج- 5 
3- يمكن معرفة عدد عناص lلأد|ö Counter ~Î :مlخaسlڊ ListBox‏ ب- SelectedItems ¬ Count‏ 
4- في الأمر ....1.00p‏ مانط ۷ 0( يستمر تنفيذ أوامر التكرار طالما الشرط يمت4: ¬ True‏ ب“ False‏ ج“ Nothing‏ 
5- يمكن استخدام الطريقة (×٥۵ہ]) R۸e٥0۷۵۸۲‏ للأداة ×0 8ء11 لحذف عنصر حسب: 

- ترتيب العنصر. ‏ ب- نوع العنصر. ج- نص العنصر. 
6- يمكن استخدام الطريقة ( ٤×ع), 1nser† ) ]!nde>×‏ للأداة ×0 is8‏ لإضافة: 

أ- عنصر في آخر الترتيب. ب- عنصر عند ترتيب معين. ج- عنصر في أول الترتيب. 
اجابة السوؤال الا 
1- ب 2- ا 3- ب 4- أ 5- ا 6- ب 
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السوال الثاني: أعد ترتيب الأكواد التالية حسب المطلوب في كل برنامج: 
أ - احسب مجموع الأعداد الفردية من 1 إلى 8 واظهر الناتج في مرربع رسالة: 
Total = Total + i‏ )....( 


(.....)For 1 = 1 To 8 Step 2 
(.....) Dim i, Total As Integer 


ب - احسب مجموع الأعداد الفردية من 1 إلى 8 واظهر الناتج في مرربع رسالة: 


(.....) Dim i = 1, total As Integer 
(.....) MsgBox (Total) 

(....) Total = Total + i 

(...)1i = i + 2 


ج- إظهر الأعداد الصحيحة من 1 إلى 10 في مربع رسالة: 


(.....)Dim i = 1 
(.....) MsgBox (i) 
Ey J) = i + 1 


ب 


اتتادا 


السؤال التالث: 


Dim Count, Sum As Integer 

Count = 1 

Sum = 0 

Do While Count <= 10 
Sum = Sum + Count 
Count = Count + 3 

Loop 

MsgBox (Sum) 


بعد تنفيذ هذا الككود تكکون القيمة النهائية للمتغفير Sum‏ هي: 
أً- 12 پ- 22 ج- 35 


أمام العبارة الخطأ للعىارات الآتية: 


1- الأُمر م٥٥1[....‏ ٭انطس 00 عندما يكون ناتج الشرط ١٥1ه]‏ تنفذ الأوامر التى تلى p٠ه٠!.‏ 
Pp‏ ت ي لي ۲ 

2- الأمر صp٥٥1[....‏ مازطس 0( عندما يكون ناتج الشرط مں٠]‏ تنفذ الأوامر التي تلي الشرط. ( ) 

3- الأمر ....1٠٥٠‏ ماطس 0« يستمر تكرار تنفيذ الأوامر طالما الشرط ناتجة مولد؟. ( ) 
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4- الأُمر ص٥ه1....‏ مانطس 0 يتوقف تكرار تنفيذ الأوامر عندما يصبح الشرط ueإ).‏ ( ) 
5- الأمر م0ه1.... ماطس 0 يتم تقييم الشرط في بداية كل تكرار. ( ) 
6- الأمر ۴٠۲.۰..." ٥×۲‏ غير معروف عدد التكرارات التي سوف تتم. ( ) 
7- الأمر ۴٠۲.....1٥×٤‏ فيه يتم تحديد القيمة التي يبدا عندها عملية التكرار والقيمة التي ينتهي عنها التكرار وقيمة الخطوة. ( ) 
8-إليك ما يلي 2 مء 10 ۴٥۲ 1=2 t٥‏ عدد مرات التكرار 5. ( ) 
9- يمكنك من خلال خصائص الأداة ×0 طاءا1 عمل فرز للعناصر المعروضة. ( ) 
0 - أثناء التشغيل لا يمكن حذف عنصر من العناصر المعروضة لدى الأداة >0طtءا.‏ ( ) 
1- يمكنك إضافة عنصر للأداة ×0 طءا عند ترتيب معين. ( ) 
السوّال الخا أختر الإجابة الصحيحة مما يلي :_1- الأمر مهه1.... مانس 00 عندما يكون ناتج الشرط ٣#‏ ) 


° oe o 


أ- لا ينفذ أي من أمر من أوامر التكرار .ب- تنفذ أوامر التكرار. ج- تنفذ مره على الأقل. 


2- إليك ما يلي 2 مء 6 ٤٥۲ 1=1 ٤)٥‏ عدد مرات التكرار أ- 3 ب-4 ج- 6 

3- الخاصية المسئولة عن معرفة عدد عناصر |ÎJداö count” counter —Î ListBox‏ ج“ selecteditems‏ 

4- الأمر ....[1٥٥‏ ماطس ٥0‏ يستمر تنفيذ الأوامر طالما الشرط قیمته أً- eںuا)‏ ب- ملهf‏ ج nothing‏ 

5- الإجراء P RemoveA) ) 1nd e×(‏ للأا ×0 118 یقوم بحذف عنصر حسب أ الترتیب ب- العنصر ج- نص العنصر 


6- الإجراء ( 1nsert ) Index ,text‏ للأداة ×80ء11 يقوم بإضافة 
أ- عنصر في آخر الترتيب ب عنصر عند ترتيب معين ج- عنصر في أول الترتيب 

السؤال السادس أكمل العبارات الآتية بما يناسبها مما بين القوسي 

False )‏ - بدایة ¬ [nsert ) ]ndex ,text ) - True‏ - عنصر عند ترتیب معین - ١٤١۲٥امex solution‏ - أربعة - عشرة ) 
1- الأُمر ٥ه1....‏ eازطس‏ 0( عندما يكون ناتج الشرط ...... تنفذ الأوامر التي تلي p٥0ه!1.‏ 
2- في الأمر م٥٥1....‏ ماطس 00 يتم تقييم الشرط في ...... کل تکرار. 
3-في الأمر م٥٥1....‏ ۴انطس 00 عندما يكون ناتج الشرط ...... تنفذ الأوامر التي تلي الشرط. 
4- يمكنك إضافة عنصر للأداة ×0ط ءا عند ترتيب معين باستخدام الإجراء e‏ 
5- الإجراء ( 1nsert ) Index ,te×٤‏ للأداة ×80 ء11 يقوم بإضافة a.‏ 
6- إليك ما يلي 2 م٥)ء‏ 10 t٥‏ 4 =1 ۲ه عدد مرات التكرار تساوي ° 


ع 


السو ال السابع اختر من العمود ( | ) ما يناسبه من العمود ( ب 
العمود ( أ) العمود ( ب ) 

Insert ( Index „text ) -1‏ 1- لمعرفة عدد عناصر الأداة ×80 )ءا . 

count ~2‏ 2- بيان العنصر المحدد في الأداة ×80 ءال. 

selected item ~3‏ 3- لإضافة عنصر عند ترتيب معين في ×80 ءاا. 

Remove At (index) ~4‏ 4- لفرز عناصر الأداة ×80 ءا . 
5- لحذف عنصر عند ترتيب معين في ×80 tءاا.‏ 
السو ال الثامن اختر من العمود ( أ ) ما يناسبه من العمود ( ب) 


.f0r ... 1×) تستخدم مع‎ -1 For...Next -1 

Do while ... loop ~2‏ 2- تستخدم عند الرغبة في التفرع. 

3- شرط 3 عند عمل تکرار معلوم عدده. 

4- متغير 4- عند عمل تكرار يعتمد على ناتج شرط. 


5- تستخدم مع ص00[ ... .Do while‏ 
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أ - لحساب مجموع الأعداد الفردية من 1 إلى 8 


EOEaL = EOotal F 3 
.MessageBox.Show (total) 


.For i = 1 To 8 Step 2 
. Dim i, total As Integer 


ب- لحساب مجموع الأعداد الفردية من 1 إلى 8 


1 
2 
3. NexL 
4 
5 


LOOP 


Do While i <= 8 

1. Dim i = 1, total As Integer 
2. MessageBox. Show (total) 
3.total = total + i 


2+ 4 = 
الإجابة 
اجابة السؤال الرا 1- |)™( (x)-6| 7-5 (x)-4| (x)-3Î(7)-2]‏ 


(X)-10 (7)9 <-8 ¬7‏ 11-“ 
إجابة السؤال الخامس 1-ب 2- | 3ب 4أ 5أ 6- ب 


A1 


إجابة السو ال السادس : 1-_ءاهf.‏ 2- بداية. 3- .1nsert (Index tex) -4 .1rue‏ 5-عنصر عند ترتیب معین. 


solution explorer ¬6‏ 7- أربعة 


اجابة السؤال السابع اجابة السؤال الثامن 
3 


اډ ای دک 


س ډډ ا ټی دک 


1 
2 
5 


£ 


Dim i, total As Integer إجابة السو ال التاسع أ-‎ 
For i = 1 To 8 Step 2 
total = total + i 
Next 
MessageBox. Show (total) 
اجابة السوًال التا ب‎ 
Dim i = 1, total As Integer 
Do While i <= 8 
total = total + i 
1 = 1 + 2 
Loop 
MessageBox. Show (total) 


السوال العا 
ضع علامة (7) أمام العبارة الصحيحة و علامة (>) أمام العبارة الخطأً للعبارات الآتية: 


ډیا کان دس 


1- في الأمر ....100p‏ اط W‏ 0 عندما يكون ناتج الشرط مءء1ه۴ تنفذ الأوامر التي تلي .100p‏ ( ) 
2- في الأمر ....1.00p‏ ۴زط۷ 0 عندما يكون ناتج الشرط ۲۲٠٠‏ يتم تنفيذ الأوامر التي تلي الشرط.( ) 
3- في الأمر ....1.00p‏ ٠زط۷‏ 0 يستمر تكرار تنفيذ الأوامر طالما الشرط نتيجته مءاه۴. ) ) 
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4- في الأمر ....00p‏ ۴زط۷ 0( یتوقف تکرار تنفیذ الأوامر عندما یصبح الشرط eںu٣۲.‏ ) () 


5- في الأمر ....[.00p‏ ٠ازط۷‏ 0 يتم تقييم الشرط في بداية كل تكرار. ) () 
6- الأمر ۴۵۲۰....٥×٤‏ غير معروف عدد مرات التكرار التي سوف تتم. ) ( 


7- الأمر ۴٠١......٥×٤‏ يتم تحديد القيمة التي يبدا عندها عملية التكرار والقيمة التي ينتهي عندها 
التكرار وقيمة الخطوة. 

. For I=2 To 10 Step 2...... Nex عدد التكرار 5 مرات في الجملة‎ -8 

9- يمكنك من خلال خصائص الأداة × 8ء11 عمل فرز للعناصر المعروضة. 

0 - أثناء التشغيل لا يمكن حذف عنصر من العناصر المعروضة لدى الأداة ×ه 48ا . 

1- يمكنك إضافة عنصر للأداة ×0 8ء1 عند ترتيب معين. 

إجابة السؤال العاشر : 


ر ر ا ر لر ر 
سا سا سا سا س 


¥۷ -5 ×*x -4 ×» -3 ۷ -2 ¥ -1 
x> -10 ۷ -9 7 -8 ¥ -71 x<» -6 
¥ -11 


Timer المیقاتی‎ 

٣1آ‏ هو ساعة توقيت غير مرئية تتيح لك التعامل مع ساعة النظام . 
ime‏ ینشط من خلال الفترات (اھ۷٣٥٤ہ!‏ ) عنئذ يقع الحدث )ع ا٣آ.‏ 

اهمهي خاصية تتحكم في الفترة الزمنية لنشاط ٣٠۴‏ وتتراوح هذه الفترة من الصفر : 65535 مللي ثانية حيث 
الثانية الواحدة = 1000 مللي ثانية . 

ماطھمع تسمى خاصية التمكين فهي تأخذ القيمة همں۲آ لتمكن ٣م" ٣1‏ من العمل علماً بأن القيمة الافتراضية د 
Enable‏ هي ۴alse‏ عنئذ Primer‏ لا تعمل 
التكوين ٣1۳٠‏ مه5 : يستخدم في حالة الاعلان عن متغير يختص ب ٥ج0‏ 
خصائص التكوين "|1 م52 : 

الخاصية Now‏ نسردم قي ارجاع التاريخ والوقت 

الخاصية مه0 لادراج التاريخ › 

› ادراج يوم‎ Day 

ay۲‏ لادراج رقم يوم خلال السنةء 

Month › Second » Minute « Hour‏ لادراج الساعة والدقيقة والثانية والشهر. 


طرق التعديل للتكوين م" ٦1‏ م52 : 
الطريقة وج٥۸44‏ لانشاء تاريخ جديد لتقديم أو تأخير عدد أيام. 
الطريقتان _ ddMinutes › AddH ours‏ لانشاء تاریخ متقدم أو متأخر عدد من الساعات والدقائق 


مثال لاستدعاء الوقت وllتlرıخ lblcurrentTime. Text = Date.Now‏ 
عليك مذاكرة المثال ص129 


إجابات أسئلة الفصل الرابع : 


: 1 : ( ب )۰ ( ج )۰( د )»( ج 
ج2 : قدرها 1.5 ثانية 
ج3 : الخاصية اج٠مtہ|‏ 
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أسئلة الوزارة 
]1 ال الا 
اختر الإجابة الصحيحة من بين الاختيارات فيما يأتي: 
1- الخاصية اد۷إء)م] للميقاتي 11.٤٥١‏ تحدد معدل وقوع الحدث بالوحدة الزمنية: 


أ- ثانية. ب - دقيقة. 
ج- مللى ثانية. د- ساعة. 
2- إذا كانت قيمة الخاصية 1د ۷١٠ء٤٠1‏ للكائن ١إء"1‏ تساوي 3000 فإن مقدارها بالثواني هو: 
أ- 3 پا 0 
ج- 3000 د- 300 
3 التكوين ............... يستدعى التاريخ والوقت الخاصين بالنظام: 
CurrentTime =‏ پ = Time‏ 
DateTime ~ı CurrentDate ¬‏ 
4- تست طب ............... مع المتغير من النوع .04)٥‏ 
أ- جمع أيام. ب- جمع ساعات. 
ج- طرح أيام. د- کل ما سبق. 


1- ج 2- ا 3- د 4- د 


السؤال الثاني اختر الإجابة الصحيحة لكل عبارة مما يلي : 


5- الخاصية اد۷اع)٤د1‏ للمؤقت اء" تحدد معدل وقوع الحدث بالوحدة الزمنية : 


1- ثانية 2- دقيقة 3- مللى ثانية 4- ساعة 
6- إذا كانت قيمة الخاصية ۷1١ء٤1‏ للكائن إء”«ذا 3000 فإن مقدارها بالثواني هو: 
1- 3 2- 30 3- 3000 4- 300 
7 التكوين ---- يستدعى التاريخ والوقت الخاصين بالنظام. 
DateTime ~4 Now = 3 Time ~2 CurrentTime ~1‏ 
8- تستطيع ---- مع المتغير من النوع م)4(. 
1- جمع أيام 2- جمع ساعات 3 - طرح أيام 4- کل ما سبق 
السؤال الثالث_ ما الذي يتسبب في وقوع الحدث عام ؟ 
السؤال الرايع ما اسم الخاصية المستخدمة لإيقاف أو تشغيل المؤقت بأوامر البرمجة ؟ 
السؤّال الخامس اذكر اسم الخاصية المسئولة عن تحديد الفترة الزمنية للحدث ع زح ؟ 
سو ال للطلبة المتميزين 


السؤال السادس اذكر قيمة × بعد مرور ثلاث ثوانى بفرض أن قيمة الخاصية 1ه۷ء)ہ1 للمؤقت ۲1ء”,1) هي1000 
Private Sub Timerl Tick (ByVal sender As System.Object, ByVal e -1‏ 
As System.EventArgs) Handles Timer1l.Tick‏ 
Static x As Integer‏ 
x = x + 1‏ 


MsgBox (x) 
24 
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End Sub 
Private Sub Timer1l Tick (ByVal sender As System.Object, ByVal e -2 


As System.EventArgs) Handles Timer1l.Tick 
Dim x As Integer 


x = x + 1 
MsgBox (x) 
End Sub 
الاجابه‎ 

إجابة السؤال الثاني_ أ- 3- مللي ثانية ب-1- 3 ج- 4- DateTime‏ د- 4- كل ما سبق 
إجابة السو ال الثالث_ مرور الفترة الزمنية المحددة بالخاصية او۷اء٤"‏ وخاصية 4ء اطa١ء‏ تساوى عuا)‏ 
إجابة السؤٌال الرايع الخاصية dءاطو١ء‏ 
إجابة السو ال الخامس _الخاصية او۷إء)م1ً 
إجابة السؤال السادس_اذكر قيمة × بعد مرور ثلاث ثواني بفرض أن قيمة الخاصية 1ه۷اء)ہ1 للمؤقت ۲1ء" ) هي 
X=1 -2 » ×= -1 1000‏ 


السوال السابع : ضع علامة (⁄) أمام العبارة الصحيحة وعبارة (*) أمام العبارة الخطأً فيما يلي: 

1- جميع الكائنات تتأثر فقط بالأحداث التي يتم وقوعها بتدخل من المستخدم. 

2- الكائن الناتج من رسم الأداة مصأ هو توقيت غير مرئي يتيح للمستخدم التعامل مع ساعة النظام. 
3- باستخدام الكائن إء"ذ٣‏ يمكنك أن تجعل بعض الأحداث تقع بعد فترة زمنية معينة. 

4- تمثل قيمة الخاصية اد۷إء).[] الفترات الزمنية المتساوية للكائن إءصأآ. 

5- الحدث ما٣‏ هو الحدث الإفتراضی لل ٣1٣٥۲‏ ويقع كنتيجة لنشاط ال ۲ءص!٣ا.‏ 

6- تقاس الفترة الزمنية المحددة بواسطة الخاصية اد۷إاء).[ بالميكروثانية. 

7- لايمكن لل ۲٥ء,"1٣‏ أن ينشط إذا كانت قيمة خاصيته ۴:41٥4‏ تساو ى ءھ۴ . 

8- يمكن تغيير قيمة الخاصية 4ء141 لبعض الكائنات فقط أثناء تصميم البرنامج. 

9- عندما نقوم بالإعلان عن متغير من النوع (4)٥‏ فإنه يصبح بالإمكان استعمال التكوين 1.٠‏ 1ء)04. 
0- القيمة الناتجة من س٠"‏ هي التاريخ والوقت الحاليان بالنظام. 
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